Pauses until the user presses a keyboard key

GetKeyDown(VAR aCode : INTEGER);

Draws a line from a fixed point specified by X1,Y1 to a mouse defined point. X2,Y2 are not returned until the mouse is clicked

GetPtL(X1,Y1 : REAL;  VAR X2,Y2 : REAL);

Returns X,Y coordinates by using the mouse. X,Y are not returned until the mouse is clicked

GetPt(VAR X,Y : REAL);

Allows the user to create a line using the mouse

GetLine(VAR X1,Y1,X2,Y2 : REAL);

Allows the user to create a rectangle using the mouse

GetRect(VAR X1,Y1,X2,Y2 : REAL);